home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE03 / VALID / VALID.ZIP / GENMAIN.DFM / GENMAIN.txt
Text File  |  1995-07-23  |  3KB  |  140 lines
  1. object Form1: TForm1
  2.   Left = 200
  3.   Top = 99
  4.   BorderStyle = bsDialog
  5.   Caption = 'Registration Number Generator'
  6.   ClientHeight = 149
  7.   ClientWidth = 362
  8.   Font.Color = clWindowText
  9.   Font.Height = -13
  10.   Font.Name = 'System'
  11.   Font.Style = []
  12.   PixelsPerInch = 96
  13.   TextHeight = 16
  14.   object Label1: TLabel
  15.     Left = 8
  16.     Top = 16
  17.     Width = 120
  18.     Height = 13
  19.     Alignment = taRightJustify
  20.     Caption = 'Random Seed:'
  21.     Font.Color = clBlack
  22.     Font.Height = -11
  23.     Font.Name = 'MS Sans Serif'
  24.     Font.Style = [fsBold]
  25.     ParentFont = False
  26.   end
  27.   object Label2: TLabel
  28.     Left = 8
  29.     Top = 48
  30.     Width = 120
  31.     Height = 13
  32.     Alignment = taRightJustify
  33.     Caption = 'User Name:'
  34.     Font.Color = clBlack
  35.     Font.Height = -11
  36.     Font.Name = 'MS Sans Serif'
  37.     Font.Style = [fsBold]
  38.     ParentFont = False
  39.   end
  40.   object Label3: TLabel
  41.     Left = 8
  42.     Top = 80
  43.     Width = 120
  44.     Height = 13
  45.     Alignment = taRightJustify
  46.     Caption = 'Registration Number:'
  47.     Font.Color = clBlack
  48.     Font.Height = -11
  49.     Font.Name = 'MS Sans Serif'
  50.     Font.Style = [fsBold]
  51.     ParentFont = False
  52.   end
  53.   object UserNameEdit: TEdit
  54.     Left = 136
  55.     Top = 40
  56.     Width = 217
  57.     Height = 20
  58.     Font.Color = clBlack
  59.     Font.Height = -11
  60.     Font.Name = 'MS Sans Serif'
  61.     Font.Style = [fsBold]
  62.     ParentFont = False
  63.     TabOrder = 1
  64.     OnExit = UserNameEditExit
  65.   end
  66.   object RegNoEdit: TEdit
  67.     Left = 136
  68.     Top = 72
  69.     Width = 217
  70.     Height = 20
  71.     TabStop = False
  72.     Font.Color = clBlack
  73.     Font.Height = -11
  74.     Font.Name = 'MS Sans Serif'
  75.     Font.Style = [fsBold]
  76.     ParentFont = False
  77.     ReadOnly = True
  78.     TabOrder = 2
  79.   end
  80.   object CopyButton: TBitBtn
  81.     Left = 92
  82.     Top = 112
  83.     Width = 65
  84.     Height = 25
  85.     Caption = 'Copy'
  86.     Default = True
  87.     Font.Color = clBlack
  88.     Font.Height = -11
  89.     Font.Name = 'MS Sans Serif'
  90.     Font.Style = [fsBold]
  91.     ParentFont = False
  92.     TabOrder = 3
  93.     OnClick = CopyButtonClick
  94.     Glyph.Data = {
  95.       76010000424D7601000000000000760000002800000020000000100000000100
  96.       04000000000000010000130B0000130B00000000000000000000000000000000
  97.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  98.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
  99.       FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
  100.       FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
  101.       007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
  102.       7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
  103.       99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
  104.       99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
  105.       99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
  106.       93337FFFF7737777733300000033333333337777773333333333}
  107.     NumGlyphs = 2
  108.   end
  109.   object CloseButton: TBitBtn
  110.     Left = 204
  111.     Top = 112
  112.     Width = 65
  113.     Height = 25
  114.     Font.Color = clBlack
  115.     Font.Height = -11
  116.     Font.Name = 'MS Sans Serif'
  117.     Font.Style = [fsBold]
  118.     ParentFont = False
  119.     TabOrder = 4
  120.     Kind = bkClose
  121.   end
  122.   object RandSeedEdit: TMaskEdit
  123.     Left = 136
  124.     Top = 8
  125.     Width = 121
  126.     Height = 20
  127.     AutoSelect = False
  128.     EditMask = '9999999999;1; '
  129.     Font.Color = clBlack
  130.     Font.Height = -11
  131.     Font.Name = 'MS Sans Serif'
  132.     Font.Style = [fsBold]
  133.     MaxLength = 10
  134.     ParentFont = False
  135.     TabOrder = 0
  136.     Text = '0         '
  137.     OnExit = RandSeedEditExit
  138.   end
  139. end
  140.